Option Explicit
 Sub z1()
 Dim x As Long, j As Long, d As Long, s As Long
 Dim nb As String
 
 x = InputBox("x=")
 j = (x Mod 100) Mod 10
 d = x Mod 100
 d = Fix(d / 10)
 s = Fix(x / 100)
 nb = 100 * j + 10 * d + s
 MsgBox (nb)
 End Sub
